faqModify.asp ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) - ASP源码程序

gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\faqModify.asp

    <!-- #include file = "include/sysbase.asp" -->
<%
dim rsObj,strSQL
dim intID
intID = RealString(Request.QueryString("id"))
set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM faq WHERE id = "&intID
rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly 
%>
<html>
<head>
<title>修改常见问题</title>
<meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<link rel = "stylesheet" href = "include/main.css" type = "text/css">
</head>
<body  text = "#000000" leftmargin = "0" topmargin = "3">
<%if not (rsObj.eof or err) then %>
<form name = "form1" action = "faqModifySave.asp" method = "post">
  <table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "2" align = "center">
    <tr bgcolor = "#4296E7"> 
      <td height = "26" colspan = "2"> 
        <div align = "center"><font color = "#FFFFFF">修改常见问题</font></div>
      </td>
    </tr>
    <tr> 
      <td nowrap>常见问题</td>
      <td> 
        <input type = "text" name = "question" size = "70" value = "<%=rsObj("question")%>">
        <input type = "hidden" name = "id" value = "<%=intID%>">
      </td>
    </tr>
    <tr> 
      <td nowrap colspan = "2">问题答案</td>
    </tr>
    <tr> 
      <td nowrap colspan = "2"> 
        <textarea name = "answer" cols = "78" rows = "20"><%=rsObj("answer")%></textarea>
      </td>
    </tr>
  <tr bgcolor = "#4296E7"> 
    <td colspan = "2" height = "24"> 
        <div align = "center"> 
          <input type = "submit" name = "Submit" value = "修改">
          <input type = "button" name = "Submit2" value = "返回" onClick = "window.location = '<%=Session("adminOldUrl")%>'">
        </div>
    </td>
  </tr>
</table>
</form>
<%else %>
无该记录，请<a href = "Javascript:window.history.go(-1)">返回</a>
<%end if %>
</body>
</html>